home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / sprite.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  586 b   |  29 lines
  1. if (!defined &_SPRITE) {
  2.     eval 'sub _SPRITE {1;}';
  3.     if (!defined &TRUE) {
  4.     eval 'sub TRUE {1;}';
  5.     }
  6.     if (!defined &FALSE) {
  7.     eval 'sub FALSE {0;}';
  8.     }
  9.     if (!defined &_ASM) {
  10.     }
  11.     eval 'sub SUCCESS {0x00000000;}';
  12.     eval 'sub FAILURE {0x00000001;}';
  13.     eval 'sub NIL {0xFFFFFFFF;}';
  14.     eval 'sub USER_NIL {0;}';
  15.     if (!defined &NULL) {
  16.     eval 'sub NULL {0;}';
  17.     }
  18.     if (!defined &_ASM) {
  19.     if (!defined &_CLIENTDATA) {
  20.         eval 'sub _CLIENTDATA {1;}';
  21.     }
  22.     if (!defined &__STDC__) {
  23.         eval 'sub volatile {1;}';
  24.         eval 'sub const {1;}';
  25.     }
  26.     }
  27. }
  28. 1;
  29.